home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00059_Script_59 < prev    next >
Text File  |  1996-11-09  |  4KB  |  152 lines
  1. on mouseDown
  2.   global cast_m,select
  3.     
  4.   if  the doubleclick then
  5.     archivio
  6.   end if
  7.   if select then exit
  8.   set list_old=[0,0,0,0,0]
  9.   set count=1
  10.   --mette i filmati presenti ad off
  11.   repeat with Loop in [33,39,40,41] 
  12.     if the casttype of cast (the castnum of sprite Loop) = #digitalvideo then
  13.       if the visible of sprite Loop then 
  14.         set rv=the castnum of  sprite Loop
  15.         set the video of cast rv to false
  16.         --updatestage
  17.         setat list_old,count,the castnum of sprite Loop
  18.         set the castnum of sprite Loop to 86
  19.         --updatestage
  20.         set the video of cast rv to true
  21.         
  22.         
  23.         
  24.       end if
  25.     end if
  26.     updatestage
  27.     set  count = count+1
  28.   end repeat
  29.   
  30.   
  31.   global RESIZE,SELECT
  32.   set MYSPRITE=32
  33.   set x1=the left of sprite MYSPRITE
  34.   set y1=the top of sprite MYSPRITE
  35.   
  36.   
  37.   
  38.   
  39.   set digit=false
  40.   set cast =0
  41.   
  42.   --CASO DI MOVE
  43.   if SELECT=0 and RESIZE=0 then
  44.     
  45.     if the casttype of cast( the castnum of sprite MYSPRITE) = #digitalvideo then
  46.       set digit=true  
  47.       --modifichiamo il cast per permettere una normale move
  48.       -- spengo il cast associato (se video)
  49.       set cast to the castnum of sprite MYSPRITE
  50.       set the visible of sprite MYSPRITE to false
  51.       --set the video of  cast ( the castnum of sprite MYSPRITE) to false --spengo il video
  52.       updatestage
  53.       set the castnum of sprite MYSPRITE to 26 --mette una bitmap in modo da effettuare l'operazione
  54.       set the visible of sprite MYSPRITE to true
  55.       --    updatestage    
  56.     end if
  57.     
  58.     repeat while the mousedown
  59.       -- set the loch of sprite MYSPRITE to the mouseH
  60.       -- set the locv of sprite MYSPRITE to the mouseV
  61.       --spegniamo il mouse 
  62.       
  63.       updatestage
  64.     end repeat
  65.     --rimettiamo tutto a posto
  66.     if digit=true then
  67.       --    set the video of cast cast to true
  68.       set the video of cast cast to false
  69.       updatestage
  70.       set the castnum of sprite MYSPRITE to cast
  71.     --  -- set the locv of sprite MYSPRITE to (the locv of sprite MYSPRITE)+(the height of sprite MYSPRITE/2)
  72.    --   -- set the loch of sprite MYSPRITE to (the loch of sprite MYSPRITE)+(the width of sprite MYSPRITE/2)
  73.       set the video of cast cast to true
  74.       updatestage
  75.     end if
  76.     
  77.     
  78.   end if
  79.   
  80.   
  81.   
  82.   
  83.   
  84.   
  85.   
  86.   --CASO DI RESIZE
  87.   
  88.   if RESIZE then
  89.     
  90.     if the casttype of cast( the castnum of sprite MYSPRITE) = #digitalvideo then
  91.       set digit=true  
  92.       --modifichiamo il cast per permettere una normale resize
  93.       -- spengo il cast associato (se video)
  94.       set cast to the castnum of sprite MYSPRITE
  95.       set the visible of sprite MYSPRITE to false
  96.       --  set the video of  cast ( the castnum of sprite MYSPRITE) to false --spengo il video
  97.       updatestage
  98.       set the castnum of sprite MYSPRITE to 26 --mette una bitmap in modo da effettuare l'operazione
  99.       set the visible of sprite MYSPRITE to true
  100.       --  updatestage 
  101.       
  102.     end if
  103.     
  104.     repeat while the mousedown
  105.       set x to the mouseH
  106.       set y to the mouseV
  107.       --spegniamo il mouse 
  108.       --cursor 200
  109.       
  110.       --adesso possiamo allargare lo sprite
  111.       
  112.       -- modifichiamo l'ampiezza dell'oggetto...
  113.       --if x>the left of sprite MYSPRITE and y > the top of sprite MYSPRITE then
  114.       spritebox MYSPRITE,x1,y1,x,y
  115.       --end if
  116.       --  if the visible of sprite MYSPRITE = 0 then the visible of sprite MYSPRITE = 1
  117.       updatestage
  118.     end repeat
  119.     --rimettiamo tutto a posto
  120.     if digit=true then
  121.       --    set the video of cast cast to true
  122.       set the video of cast cast to false
  123.       updatestage
  124.       set the castnum of sprite MYSPRITE to cast
  125.     --  -- set the locv of sprite MYSPRITE to (the locv of sprite MYSPRITE)+(the height of sprite MYSPRITE/2)
  126.     --  -- set the loch of sprite MYSPRITE to (the loch of sprite MYSPRITE)+(the width of sprite MYSPRITE/2)
  127.       set the video of cast cast to true
  128.       updatestage
  129.     end if
  130.     
  131.     
  132.   end if
  133.   
  134.   
  135.   
  136.   
  137.   
  138.   
  139.   set count =1
  140.   --mette i filmati presenti ad on
  141.   repeat with Loop in [33,39,40,41] 
  142.     
  143.     if getat (list_old,Count) then 
  144.       set the castnum of sprite Loop to getat (list_old,Count)
  145.     end if
  146.     set count =count +1
  147.     
  148.   end repeat
  149.   updatestage
  150.   
  151.   cursor -1
  152. end